home *** CD-ROM | disk | FTP | other *** search
/ AM/FM: Amiga Musicians' Freeware Magazine 19 / AM-FM 19.adf / AMFM-19 < prev    next >
AmigaDOS Script File  |  1994-08-07  |  756b  |  38 lines
  1. .key foo
  2.  
  3. :c/cd :
  4.  
  5. ;:c/type :Text/AMFM.ansi
  6. :c/assign libs: :libs
  7. :c/assign s: :s
  8. :c/assign c: :c
  9. :c/assign devs: :devs
  10. :c/assign ENV: RAM:
  11.  
  12. :c/MemCheck 600000
  13. if not warn
  14.    :c/run :c/AMFMPlay :Music/mod.happyhour.pmc
  15.    :c/wait 15
  16. else
  17.    :c/echo "  Sorry, not enough memory for background music."
  18. endif
  19.  
  20. Echo "  When the picture appears, you can get rid of it by pressing"
  21. Echo "  the mouse button."
  22. :c/Decrunch >nil: :Graphics/AMFM19.HAM.pic.pp ram:
  23. :c/IFF >nil: ram:AMFM19.HAM.pic
  24. :c/Delete >nil: ram:AMFM19.HAM.pic
  25. ;:c/Echo "Sorry, no disk space for any front-picture this time..."
  26.  
  27. :c/Zoomwindows quiet
  28. :c/amfmmenu :s/menu
  29.  
  30. :c/Zoomwindows quiet
  31. ; :c/BreakAMFMPlay
  32.  
  33. assign s: sys:s
  34. assign c: sys:c
  35. assign libs: sys:libs
  36. assign devs: sys:devs
  37. cd sys:
  38.